#include "slist.h"
#include <stdio.h>
#include <string.h>
#include <stdlib.h>

// 创建头信息结构体
int slist_create(slist_t **s, int size, ft1 my_destroy)
{
    // 参数判断
    if (size <= 0)
    {
        perror("size lawless...");
        goto err0;
    }

    // 申请空间
    *s = malloc(sizeof(slist_t));
    if (NULL == *s)
    {
        perror("slist_t malloc failed...");
        goto err0;
    }
    memset(*s, 0, sizeof(slist_t));

    // 数据初始化
    (*s)->cnt = 0;
    (*s)->p = NULL;
    (*s)->size = size;
    (*s)->my_destroy = my_destroy;

    return 0;
err0:
    return -1;
}

static node_t *__node_create(slist_t *s)
{
    node_t *tmp = NULL;

    // 参数检查
    if (NULL == s)
    {
        perror("argument lawless...");
        goto err0;
    }

    // 创建节点空间
    tmp = malloc(sizeof(node_t));
    if (NULL == tmp)
    {
        perror("malloc failed...");
        goto err0;
    }
    memset(tmp, 0, sizeof(node_t));

    // 创建指针空间
    tmp->data = malloc(s->size);
    if (NULL == tmp->data)
    {
        perror("data malloc failed...");
        goto err1;
    }
    memset(tmp->data, 0, s->size);

    return tmp;

err1:
    free(tmp);
err0: 
    return NULL;
}

// 链表尾部插入
int slist_append(slist_t *s, void *num)
{   
    node_t *new_node = NULL;
    node_t *tmp = NULL;

    // 参数检查
    if (NULL == s || NULL == num)
    {
        perror("argument failed...");
        goto err0;
    }

    // 创建节点
    new_node = __node_create(s);

    // 数据写入
    memcpy(new_node->data, num, s->size);
    new_node->next = NULL;

    // 链表尾部插入
    tmp = s->p;
    if (NULL == tmp)
    {
        s->p = new_node;
    }
    else 
    {
        while (NULL != tmp->next)
        {
            tmp = tmp->next;
        }
        tmp->next = new_node;
    }



    return 0;

err0:
    return -1;
}

// 链表的遍历
int slist_traverse(slist_t *s, ft1 my_printf)
{
    node_t *tmp = NULL;
    // 参数检查
    if (NULL == s || NULL == my_printf)
    {
        perror("argument lawless...");
        goto err0;
    }

    tmp = s->p;

    while (NULL != tmp)
    {
        my_printf(tmp->data);
        tmp = tmp->next;
    }


    return 0;
err0:
    return -1;
}

// 链表的销毁
void my_destroy(void *s)
{
    node_t *tmp = NULL;
    node_t *save = NULL;

    // 参数检查
    if (NULL == s)
    {
        perror("s == NULL");
        return;
    }

    tmp = ((slist_t *)s)->p;

    // 销毁
    while (NULL != tmp)
    {
        // 保存下一个
        save = tmp->next;

        // 释放
        free(tmp->data);
        tmp->data = NULL;
        free(tmp);
        tmp = NULL;

        // 指向下一个
        tmp = save;
    }

    free((slist_t *)s);
    return;
}